home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / devtools / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-30  |  1.9 KB  |  47 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   780
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5610
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   780
  10.    ScaleWidth      =   5610
  11.    StartUpPosition =   3  'Windows Default
  12. Attribute VB_Name = "Form1"
  13. Attribute VB_GlobalNameSpace = False
  14. Attribute VB_Creatable = False
  15. Attribute VB_PredeclaredId = True
  16. Attribute VB_Exposed = False
  17. 'Declare Dynamic Link
  18. 'First Reference It By Clicking Project in the Toolbar
  19. 'Click Reference And Search For Devtools Dll
  20. Dim DevTool As New RegSvr 'Linking The Dll To The Project
  21. Private Sub Form_Load()
  22. DevTool.AboutMe ("c:\temp") 'Store About File In C:\Temp
  23. End Sub
  24. Public Function SampleApps()
  25. 'Do Not Execute This Function Unless You Know What Youre Doing
  26. With DevTool
  27. .DoChangeUser
  28. .DoChangeWallPaper ("C:\temp\Sample.bmp") 'Changes Wallpaper With Given BMP FIle
  29. .DoOpenCd_RomDrive 'Opens Cd rom Drive
  30. .DoCloseCd_RomDrive 'Closes Cd Rom Drive
  31. .DoCreateUrl ("c:\Windows\Desktop\Test.url"), ("www.developit.demon.nl") 'Creates Shorcut To InternetPage
  32. .DoDialupNow 'Dials Users Deafault DUN Connection
  33. .DoDownloadRegsvr32 ("C:\temp") 'Retrieves Regsvr32.exe from The Dll And Stores It In C:\Temp
  34. .DoFileCryption ("C:\temp\First.txt"), ("C:\temp\Second.txt"), ("devtools"), True
  35. 'Encrypts First.txt To Second.Txt with Password ,to Decrypt Place Second.txt AS first
  36. 'File and as second file place name.txt
  37. .DoFindCD_RomDrive ' Finds Users CD Rom Drive Letter
  38. .DoHideTaskBar 'Hides The Windows TaskBar
  39. .DoPolicyChangeMenuSpeed ("199") ' changes the menu speed in windows
  40. 'Fore The Policy Features Do
  41. DevTool.AboutMe ("c:\temp") 'Store About File In C:\Temp
  42. .DoPolicyNoRun True ' The Run Command Has been Disabled From The StartMenu
  43. ' true is Disabled False is enabeled
  44. End With
  45. ' For Questions And Answers Mailto : Devtools@developit.demon.nl
  46. End Function
  47.